﻿Public Class xTab
    Inherits TabPage
    Public Enum TYPE
        SYSTEMMESSAGE
        MANUALCONTROL
    End Enum
    Dim _systemMessages As systemMessages
    Private _tabType As TYPE
    Public Property TabType() As TYPE
        Get
            Return _tabType
        End Get
        Set(ByVal value As TYPE)
            _tabType = value
        End Set
    End Property

    Public Sub New(ByRef control As systemMessages)
        _systemMessages = control
        _systemMessages.Visible = True
        _systemMessages.Dock = DockStyle.Fill
        Controls.Add(_systemMessages)
        Text = "System Messages"
        _tabType = TYPE.SYSTEMMESSAGE
        BackColor = Color.LightYellow
    End Sub

End Class
